home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Tech Arsenal 1
/
Tech Arsenal (Arsenal Computer).ISO
/
tek-04
/
fmodla13.zip
/
TIMEDATE.DEF
< prev
next >
Wrap
Text File
|
1992-01-29
|
351b
|
21 lines
DEFINITION MODULE TimeDate;
(* (C) Copyright 1987 Fitted Software Tools. All rights reserved. *)
TYPE Time = RECORD
day, minute, millisec :CARDINAL;
END;
PROCEDURE GetTime( VAR time :Time );
(*
get the system time
*)
PROCEDURE SetTime( time :Time );
(*
set the system time
*)
END TimeDate.